home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dateselt / datedm1a.dfm / datedm1a.txt
Encoding:
Text File  |  1996-09-15  |  3.0 KB  |  147 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   BorderIcons = []
  5.   BorderStyle = bsNone
  6.   ClientHeight = 211
  7.   ClientWidth = 205
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   TextHeight = 16
  16.   object Panel1: TPanel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 205
  20.     Height = 211
  21.     Align = alClient
  22.     BevelInner = bvLowered
  23.     BorderWidth = 1
  24.     BorderStyle = bsSingle
  25.     TabOrder = 0
  26.     object Label3: TLabel
  27.       Left = 8
  28.       Top = 7
  29.       Width = 185
  30.       Height = 25
  31.       Alignment = taCenter
  32.       AutoSize = False
  33.       Caption = 'Date Range Selection'
  34.     end
  35.     object Bevel3: TBevel
  36.       Left = 8
  37.       Top = 16
  38.       Width = 185
  39.       Height = 9
  40.       Shape = bsBottomLine
  41.     end
  42.     object CurrentDate: TLabel
  43.       Left = 112
  44.       Top = 157
  45.       Width = 77
  46.       Height = 16
  47.       Alignment = taCenter
  48.       AutoSize = False
  49.       Color = clBtnFace
  50.       Font.Color = clYellow
  51.       Font.Height = -13
  52.       Font.Name = 'System'
  53.       Font.Style = [fsBold]
  54.       ParentColor = False
  55.       ParentFont = False
  56.     end
  57.     object Interval: TRadioGroup
  58.       Left = 8
  59.       Top = 40
  60.       Width = 73
  61.       Height = 117
  62.       Caption = ' Interval'
  63.       ItemIndex = 0
  64.       Items.Strings = (
  65.         'Day'
  66.         'Week'
  67.         'Month'
  68.         'Year')
  69.       TabOrder = 0
  70.       OnClick = IntervalClick
  71.     end
  72.     object OKBtn: TButton
  73.       Left = 16
  74.       Top = 176
  75.       Width = 73
  76.       Height = 25
  77.       Caption = 'OK'
  78.       ModalResult = 1
  79.       TabOrder = 1
  80.       OnClick = OKBtnClick
  81.     end
  82.     object CancelBtn: TButton
  83.       Left = 112
  84.       Top = 176
  85.       Width = 73
  86.       Height = 25
  87.       Caption = 'Cancel'
  88.       ModalResult = 2
  89.       TabOrder = 2
  90.       OnClick = CancelBtnClick
  91.     end
  92.     object GroupBox1: TGroupBox
  93.       Left = 88
  94.       Top = 40
  95.       Width = 105
  96.       Height = 113
  97.       TabOrder = 3
  98.       object Label1: TLabel
  99.         Left = 8
  100.         Top = 15
  101.         Width = 89
  102.         Height = 16
  103.         AutoSize = False
  104.         Caption = 'From'
  105.       end
  106.       object Label2: TLabel
  107.         Left = 8
  108.         Top = 64
  109.         Width = 89
  110.         Height = 17
  111.         AutoSize = False
  112.         Caption = 'Through'
  113.       end
  114.       object DateSelect1: TDateSelect
  115.         Left = 8
  116.         Top = 32
  117.         Width = 89
  118.         Height = 26
  119.         Date_Format = Mdyy
  120.         Date_Interval = dsDay
  121.         Date_Type = dsFirst
  122.         DateCode = 728494.000000000000000000
  123.         CalColor = clSilver
  124.         CalEnabled = True
  125.         ParentShowHint = False
  126.         ShowHint = True
  127.         TabOrder = 0
  128.       end
  129.       object DateSelect2: TDateSelect
  130.         Left = 8
  131.         Top = 81
  132.         Width = 89
  133.         Height = 26
  134.         Date_Format = Mdyy
  135.         Date_Interval = dsDay
  136.         Date_Type = dsLast
  137.         DateCode = 728494.000000000000000000
  138.         CalColor = clSilver
  139.         CalEnabled = True
  140.         ParentShowHint = False
  141.         ShowHint = True
  142.         TabOrder = 1
  143.       end
  144.     end
  145.   end
  146. end
  147.